﻿Imports Microsoft.VisualBasic
Imports System.Data

Public Class clsCalidad
    Inherits clsDatos

    Dim strSQL As String

    Function Get_Calidad() As DataTable

        Return GetDatos("select * from artcatcalidad order by calidad")

    End Function

    Function Get_Calidad(ByVal strFamilia As String) As DataTable

        strSQL = "Select distinct familia, vacacalidad calidad "
        strSQL = strSQL & "from art "
        strSQL = strSQL & "where estatus='ALTA' and familia like '%" & strFamilia & "%'"


        Return GetDatos(strSQL)

    End Function

    Function Do_BuscaCalidad(ByVal strFamilia As String, ByVal strCalidad As String) As DataTable

        strSQL = "Select distinct vacacalidad calidad "
        strSQL = strSQL & "from art "
        strSQL = strSQL & "where estatus='ALTA' "
        strSQL = strSQL & "and familia='" & strFamilia & "' "
        strSQL = strSQL & "and vacacalidad = '" & strCalidad & "'"

        Return GetDatos(strSQL)

    End Function

End Class
